home *** CD-ROM | disk | FTP | other *** search
/ The Book of Tells / The Book of Tells.iso / main.dir / 00011_Script_11 < prev    next >
Text File  |  1994-09-21  |  3KB  |  125 lines
  1. on startMovie 
  2.   preLoadCast "vidgallery1"
  3.   preLoadCast "vidgallery2"
  4.   
  5.   preLoadCast "caro1"
  6.   preLoadCast "caro2"
  7.   
  8.   preLoadCast "glossary1"
  9.   preLoadCast "glossary2"
  10.   
  11.   preLoadCast "help1"
  12.   preLoadCast "help2"
  13.   
  14.   preLoadCast "credits1"
  15.   preLoadCast "credits2"
  16.   
  17.   preLoadCast "quit1"
  18.   preLoadCast "quit2"
  19. end startMovie
  20.  
  21.  
  22.  
  23. -- ******************************************************
  24. -- Name: buttonAction
  25. -- Description: 
  26. --                      
  27. -- Example: buttonAction(TRUE)
  28. -- ******************************************************
  29. on buttonAction silent
  30.   
  31.   global activated
  32.   set activated = TRUE
  33.   
  34.   if not(silent=TRUE) then sound playfile 1, "MousDown"
  35.   
  36.   set ButtonUpName = the name of cast (the castnum of sprite the ClickOn)
  37.   
  38.   
  39.   set tmp1=ButtonUpName&"1"
  40.   set ButtonDownName = ButtonUpName&"2"
  41.   
  42.   set the castnum of sprite the ClickOn = the number of cast tmp1
  43.   updatestage
  44.   startTimer
  45.   repeat while the timer < 5
  46.   end repeat
  47.   
  48.   
  49.   
  50.   set buttonOn=TRUE
  51.   repeat while the stillDown = TRUE
  52.     
  53.     if rollover (the clickOn) = TRUE then
  54.       if buttonOn=FALSE then
  55.         set buttonON=TRUE
  56.         set the castnum of sprite the ClickOn = the number of cast tmp1
  57.         updatestage
  58.         startTimer
  59.         repeat while the timer < 5
  60.         end repeat
  61.         
  62.         
  63.         
  64.       else
  65.         
  66.         set activated = TRUE
  67.         set the castnum of sprite the ClickOn = the number of cast ButtonDownName
  68.         updatestage
  69.       end if
  70.       
  71.     else  
  72.       set buttonOn=FALSE
  73.       set activated = FALSE
  74.       set the castnum of sprite the ClickOn = the number of cast ButtonUpName
  75.       updatestage
  76.       
  77.     end if
  78.     
  79.   end repeat
  80.   
  81.   if activated = FALSE then exit
  82.   
  83.   set the castnum of sprite the ClickOn = the number of cast ButtonUpName
  84.   updatestage
  85.   
  86. end buttonAction 
  87.  
  88. -- ******************************************************
  89. -- Name: putHelp
  90. -- Description: 
  91. --                      
  92. -- Example: 
  93. -- ******************************************************
  94. on putHelp castMemName,spriteNum
  95.   set hInstance = the mouseh
  96.   set vInstance = the mousev
  97.   set the castNum of sprite spriteNum to the number of cast castMemName
  98.   set the loch of sprite spriteNum to hInstance
  99.   set the locv of sprite spriteNum to vInstance
  100.   updateStage 
  101.   
  102.   repeat while the stilldown
  103.     
  104.   end repeat
  105.   
  106.   set the loch of sprite spriteNum to -300
  107.   set the loch of sprite spriteNum to -300
  108.   updateStage
  109.   
  110. end putHelp 
  111.  
  112. -- ******************************************************
  113. -- Name: playAif
  114. -- Description: 
  115. --                      
  116. -- Example: 
  117. -- ******************************************************
  118. on playAif soundFName
  119.   if the machineType=256 then
  120.     sound playfile 1,the pathname&"sounds\"&soundFName&".aif"
  121.   else
  122.     sound playfile 1,the pathname&"sounds:"&soundFName&".aif"
  123.   end if 
  124. end playAif
  125.